home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Examples / paver.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-12-30  |  323 b   |  21 lines
  1. /* test of REXX I/O */
  2. trace
  3. do j=1 to 4;
  4. do i=1 to 6;
  5.    left = (i-1)*106
  6.    top  = (j-1)*50
  7.    pos="con:"left"/"top"/106/50/"i":"j
  8.    call open w.i.j,pos,'a'
  9.    end
  10.    end j
  11.  
  12. /* write to each one ...         */
  13. do j=1 to 4;
  14. do i=1 to 6;
  15.    call writeln w.i.j,i j
  16.    end
  17.    end j
  18.  
  19. /* bail out (automatic cleanup)  */
  20. exit
  21.